home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / qbnws102.zip / GRAPHSPK.ZIP / SCR1BITS.BAS < prev    next >
BASIC Source File  |  1989-12-28  |  2KB  |  65 lines
  1. ' ========================= SCR1BITS.BAS ==================================
  2. '                          Quick Basic 4.5
  3. '                Copyright 1989 - Frederick Volking
  4. ' All Rights released to public domain by original author on 12/01/89
  5. '
  6. ' =====================================================================
  7. '
  8. ' This program displays the bit-map for a 16x16 pixel image stored
  9. ' with the graphics GET image command for Screen 1 - CGA color.
  10. '
  11. ' This program requires the function BITON.BAS be merged with it.
  12. '
  13. ' ==================================================================
  14. '  Author:       Frederick Volking
  15. '  Contact:      (415)952-3450 [home]          (415)378-4640 [work]
  16. '  USPO Mail:    425 Larch Avenue  -  South San Francisco, CA 94080
  17. '  EchoMail:     ANY Basic conference (I try to read them all)
  18. '  Library At:   QBCentral BBS - Vancouver Washington (206)892-7500
  19. ' ==================================================================
  20. DEFINT A-Z
  21. CLS
  22. SCREEN 1
  23. IntsNeeded = 34
  24. MaxClrs = 3
  25. DIM A(1 TO IntsNeeded)
  26.  
  27. FOR Clr = 1 TO MaxClrs
  28.    CLS
  29.    LINE (0, 0)-(15, 15), Clr, B
  30.    LINE (0, 0)-(15, 15), Clr
  31.    GET (0, 0)-(15, 15), A
  32.    LOCATE 1, 10: PRINT "Integers Used   = "; IntsNeeded
  33.    LOCATE 2, 10: PRINT "Array Element 1 = "; A(1)
  34.    LOCATE 3, 10: PRINT "Array Element 2 = "; A(2)
  35.    LOCATE 4, 10: PRINT "Color = "; Clr
  36.    PRINT
  37.  
  38.    FOR C = 3 TO IntsNeeded STEP 2
  39.  
  40.       FOR D = 0 TO 1
  41.          B = C + D
  42.          FOR Bit = 1 TO 8
  43.             IF (BitOn(Bit, A(B))) THEN PRINT "1";  ELSE PRINT "0";
  44.          NEXT
  45.          PRINT " ";
  46.          FOR Bit = 9 TO 16
  47.             IF (BitOn(Bit, A(B))) THEN PRINT "1";  ELSE PRINT "0";
  48.          NEXT
  49.          PRINT "  ";
  50.       NEXT
  51.  
  52.       PRINT
  53.    NEXT
  54.  
  55.    DO: K$ = INKEY$: LOOP WHILE K$ = ""
  56.    IF K$ = CHR$(27) THEN
  57.       SCREEN 0, 0
  58.       CLS
  59.       END
  60.    END IF
  61. NEXT
  62.  
  63. SCREEN 0, 0
  64. CLS
  65. END